home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dump_s1r / font.bas < prev    next >
Encoding:
BASIC Source File  |  1998-12-15  |  424 b   |  15 lines
  1. Attribute VB_Name = "modFont"
  2. Option Explicit
  3.  
  4. Public Function ShowFontWindow(InFont As StdFont, InForeColor As Long, ReturnForeColor As Long) As StdFont
  5.     With frmSelFnt
  6.         Set .oFont = InFont
  7.         Set .xFont = InFont
  8.         .Color = InForeColor
  9.         DoUntilNotVisible frmSelFnt
  10.         ReturnForeColor = .Color
  11.         Set ShowFontWindow = .oFont
  12.     End With
  13.     Unload frmSelFnt
  14. End Function
  15.